SYSTEM Command 


FORMAT: 
SYSTEM 
PURPOSE: 
Leaves VBASICA and returns to DOS. 
REMARKS: 


All files are closed before exiting VBASICA. 


TAB Function 


FORMAT: 
TAB(1) 
PURPOSE: 
Moves the print position to I. 
REMARKS: 
If the current print position is already beyond space I, TAB goes to 
that position on the next line. Space | is the leftmost position, and the 


rightmost position is the width minus one. I must be from | to 255. 
You can use TAB only in PRINT and LPRINT statements. 
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EXAMPLE: 


10 PRINT "NAME" TAB(25) "AMOUNT" : PRINT 
20 READ A$, BS 

30 PRINT A$ TAB(25) BS 

40 DATA "G.T.JONES", "$25.00" 


yields 


NAME AMOUNT 
G.T. JONES $25 .00 


TAN Function 


FORMAT: 
TAN(X) 
PURPOSE: 
Returns the tangent of X, where X is in radians. 
REMARKS: 
If TAN overflows, VBASICA displays the “Overflow” error message. 
VBASICA supplies machine infinity with the appropriate sign as the 
result, and execution continues. 


EXAMPLE: 


LOY = Q*TAN(X)/2 
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TIMES Function and Statement 


FORMAT: 


TIMES = <cstring expr> Sets the current time. 
< string expr> = TIME$ Gets the current time. 


PURPOSE: 

Sets or retrieves the current time. 

REMARKS: 

< string expr > isa valid string literal or variable. 


VBASICA fetches and assigns the current time to the string variable if 
TIMES is the expression in a LET or PRINT statement. 


VBASICA stores the current time if TIME$ is the target of a string 
assignment. 
RULES: 


1. If <string expr > is not a valid string, the “Type mismatch” error 
results. 


2. For <string var > = TIME$, TIME$ returns an 8-character string 
in the form “hh:mm:ss” where hh is the hour (00 to 23), mm is the 
minutes (00 to 59), and ss is the seconds (00 to 59). 


3. For TIME$ = <string expr>, <string expr> can take one of 
the following forms: 


a. hh sets the hour. Minutes and seconds default to 00. 
b. hh:mm sets the hour and minutes. Seconds default to 00. 


c. hh:mm:ss sets the hour, minutes, and seconds. 
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You can omit a leading zero from any of these values, but you must 
include at least one digit. For example, if you want to set the time as 
one half hour after midnight, you can enter TIME$ = ”0:30”, but not 
TIME$ = :30”. -_ 


If any of the values are out of range, VBASICA issues the “Illegal func- 
tion call’ error. VBASICA retains the previous time. 


EXAMPLE: 


TIMES = "08:00" 
Ok 

PRINT TIME$ 
08:00:04 

Ok 


This program displays the current date and time on the 25th line of 
the screen and chimes on the hour: 


10 KEY OFF:SCREEN 0:WIDTH 40:CLS 
20 LOCATE 25,5 

30 PRINT DATE$, , TIMES 

40 SEC = VAL(MID$(TIME$,7,2) ) 

50 IF SEC = SSEC THEN 20 ELSE SSEC = SEC 
60 IF SEC = 0 THEN 1010 

70 IF SEC = 30 THEN 1020 

80 IF SEC < 57 THEN 20 

1000 SOUND 1000,2:GOTO 20 

1010 SOUND 2000,8:GOTO 20 

1020 SOUND 400,4 :GOTO 20 
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TIMER ON, TIMER OFF, and TIMER STOP 
Statements 


FORMAT: 


TIMER ON 
TIMER OFF 
TIMER STOP 


PURPOSE: 

TIMER ON enables event trapping during real time. 

TIMER OFF disables event trapping during real time. 

TIMER STOP suspends real-time event trapping. 

REMARKS: 

The TIMER ON statement enables real time event trapping by an ON 
TIMER statement (see ON TIMER Statement). While ON TIMER 
enables trapping, VBASICA checks between every statement to see if 
the timer has reached the specified level. If it has, VBASICA executes 
the ON TIMER statement. 


TIMER OFF disables the event trap. If an event occurs it is not 
remembered if you use a subsequent TIMER ON. 


TIMER STOP disables the event trap, but if an event occurs, it is 
remembered and an ON TIMER statement is executed as soon as you 
enable trapping. 


Also see the ON TIMER statement. 
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TRON/TROFF Commands — 


FORMAT: 


TRON 
TROFF 


PURPOSE: 
Traces the execution of program statements. 
REMARKS: 


Use TRON as an aid to debugging. The TRON statement (executed in 
direct or indirect mode) enables a trace flag that prints each line 
number of the program as that line is executed. The numbers are 
enclosed in square brackets. The trace flag is disabled with the TROFF 
statement (or when a NEW command is executed). 


EXAMPLE: 


20 FOR J=1 TO 2 
50 L=K + 10 

40 PRINT J;K;L 
50 K=K+10 

60 NEXT 

70 END 


RUN 
[10][20][30][40] 1 10 20 
[50][60][30][40] 2 20 50 
[50][60]['70] 
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USR Function 


FORMAT: 
USR [< digit >] [(< argument > )] 


PURPOSE: 


Calls an assembly language subroutine. 


REMARKS: 


< digit > specifies the USR routine being called. See the DEF USR 
statement for rules governing <digit>. If you omit <digit>, 
VBASICA assumes USRO. 


<argument > is the value passed to the subroutine. It may be any 
numeric or string expression. If a segment other than the default seg- 
ment (data segment) is to be used, a DEF SEG statement must be exe- 
cuted prior to a USR function call. The address given in the DEF SEG 
statement determines the segment address of the subroutine. 


For each USR function, a corresponding DEF USR statement must be 
executed to define the USR call offset. This offset and the currently 
active DEF SEG segment address determine the starting address of the 
subroutine. 


EXAMPLE: 


100 DEF SEG = &H8000 
110 DEF USRO=0 

120 X=5 

130 Y = USRO (X) 

140 PRINT Y 


' The type (numeric or string) of the variable receiving the value must 
be consistent with the argument passed. 
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VAL Function 


FORMAT: 
VAL (< string > ) 
PURPOSE: 


Returns the numeric value of < string >. The VAL function strips lead- 
ing blanks, tabs, and linefeeds from the argument string. For example, 


VAL("-3") 
returns — 3. 
REMARKS: 


< string > must be a numeric value stored as a string. 

VAL stops scanning the string for numeric characters as soon as it 

encounters either: 

> Any nonnumeric character other than blank, tab, or linefeed. 

> Any nonnumeric character (including blank, tab, or linefeed) after 
having found any numeric character(s). 

If <string > contains no numeric characters, VAL returns 0 (zero). 

See the STR$ function for details on numeric-to-string conversion. 


EXAMPLES: 


10 READ NAME$, CITY$, STATE$, ZIP$ 

20 IF VAL (ZIP$) <90000 OR VAL (ZIP$)>96699 
THEN PRINT NAME$ TAB (25) "OUT OF STATE" 

30 IF VAL (ZIP$)>=90801 AND VAL (ZIP$)<=90815 
THEN PRINT NAME$ TAB (25) "LONG BEACH" 
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The following example: 
1000 ADDRESS$="27 So. Spring St." 
1010 NUMBER=VAL (ADDRESS$ ) 
1020 PRINT NUMBER 
ylelds 
at 
This example yields 0: 


Print VAL ("ABC") 


VARPTR Function 


FORMAT: 


Xx VARPTR( < variable > ) 


VARPTR([#] < file number > ) 


y 


PURPOSE: 

For variables, returns the location in memory of the variable. For files, 
the VARPTR function returns the address of the first byte of the file 
control block (FCB) for the opened file. 

REMARKS: 

For both formats, the address returned is an integer from 0 to 65536. 


This number is the offset into the current segment of memory as 
defined by the DEF SEG statement. 


VBASICA Statements, Commands, and Functions 3-197 


The first format returns the address of the first byte of data identified 

with <variable>. Assign a value to <variable> prior to the 
VARPTR call, or you get an “Illegal function call’ error. You may use fn 
any type variable (numeric, string, array element). | 


NOTE: Assign all simple variables before calling VARPTR for an 
array, because addresses of arrays change whenever a new simple vari- 
able is assigned. 


VARPTR is usually used to obtain the address of a variable or array so 
it may be passed to a machine language subroutine. A function call of 
the form VARPTR(A(0)) is usually specified when passing an array, so 
that the lowest-addressed element of the array is returned. 


The second format returns the starting address of the file control block 
for the specified file. This is not the same as the DOS file control block. 
The file must be OPENed before the call to VARPTR. 


< file number > is tied to a currently open file. Offsets to information 
in the FCB from the address returned by VARPTR are: 


OFFSET SIZE CONTENTS 
0 l Mode The mode in which the file was opened: 
1 Input Only 


2 Output Only 
4 Random I/O 
16 Append Only 
32 Internal Use 
64 Future Use 
128 Internal Use 


l 38 FCB Disk File Control Block. Refer to the Systems 
Programmer's Tool Kit II, Volume IT, for contents. 


39 2 CURLOC Number of sectors read or written for sequential 
access. For Random access, it contains the last 
record number + 1 read or written. 


4| I ORNOFS Number of bytes in sector when read or written. 
42 I NMLOFS Number of bytes left in input buffer. ro7~"\ 
43 3 ane Reserved for future expansion. 
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‘data buffer. 


AO A$ = PEEK (DATADR) 


‘data buffer. 
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OFFSET SIZE CONTENTS 

46 l DEVICE Device number: 

0-9 Disks A: through J: 
255 KYBD: 

254 SCRN: 

253 LPTI: 

251 COMI: 

250 COM2?: 

249 LPT2: 

248 LPT3: 

47 I WIDTH Device width. 

48 | POS Position in buffer for PRINT. 

49 I FLAGS Internal use during LOAD/SAVE. Not used for 
data files. 

50 | OUTPOS Output position used during tab expansion. 

51 128 BUFFER Physical data buffer. Used to transfer data between 
DOS and VBASICA. Use this offset to examine 
data in sequential I/O mode. 

179 2 VRECL Variable-length record size. Default is 128. Set by 
length option in OPEN statement. 
181 2 PHYREC — Current physical record number. 
183 2 LOGREC — Current logical record number. 
185 | ate Future use. 
186 2 OUTPOS Disk file only. Output position for PRINT, 
INPUT, and WRITE. 
188 <n> FIELD Actual FIELD data buffer. Size is determined by 
/S: switch. VRECL bytes are transferred between 
BUFFER and FIELD on I/O operations. Use this 
offset to examine file data in Random I/O mode. 
EXAMPLE: 
10 OPEN "DATA.FIL" AS #1 
20 FCBADR = VARPTR(#1) 'FCBADR contains start of FCB 
50 DATADR FCBADR+188 'DATADR contains address of 


'A$ contains lst byte in 
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VARPTRS$ Function 


FORMAT: 
VARPTR$ (< variable name > ) 


PURPOSE: 


Returns a character form of the variable’s memory address. The form 
is compatible for programs that might be compiled later. 


REMARKS: 
< variable name > is the name of a variable in the program. 


VARPTRS$ executes substrings with the DRAW and PLAY statements 
in programs that will later be compiled. With programs that will not be 
later compiled, the standard syntax of the PLAY and DRAW state- 
ments is sufficient to produce desired effects. 


You must assign a value to the variable before calling VARPTR$. 
Otherwise, an “Illegal function call” error results. Variables are defined 
by executing any reference to the variable. 


VARPTRS$ returns a three-byte string in the form: 


byte 0 = type 
byte | = low byte of address 
byte 2 = high byte of address 


The individual parts of the string are not considered characters. 
NOTE: Because array addresses, string addresses and file data blocks 
change whenever a new variable is assigned, it is unsafe to save the 


result of a VARPTR function in a variable. Execute VARPTR before 
each use of the result. 
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EXAMPLE: 


10 PLAY "X" + VARPTR$(A$) 


Uses the subcommand X (execute), plus the contents of A$, as the 
String expression in the PLAY statement. 


VIEW Statement 


FORMAT: 

VIEW [ [SCREEN] [(Vx1,Vy1)-(Vx2,Vy2) [,[ < color > ][,[ < border > ]]]]] 
PURPOSE: 
Defines the screen limits for graphics activity, in Graphics mode only. 
REMARKS: 


VIEW defines a “Physical Viewport” limit from Vx1, Vy! (upper left 
x,y coordinates) to Vx2, Vy2 (lower right x,y coordinates). The x and y 
coordinates must be within the physical bounds of the screen. The 
physical viewport defines the rectangle within the screen into which 
you can map graphics. 


RUN, and RUN, SCREEN, and VIEW with no arguments, define the 
entire screen as the viewport. 


With the <color> attribute, you can fill the view area with a color. If 
you omit color, VBASICA does not fill the view area. 


With the <border> attribute, you can draw a line surrounding the 


viewport if space for a border is available. If you omit <border>, 
(“"\ — VBASICA draws no border. 
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The [SCREEN] option dictates that the x and y coordinates are abso- 
lute to the screen, not relative to the border of the physical viewport, 
and VBASICA plots only graphics within the viewport. 


Out-of-range coordinates are clipped. 
EXAMPLE: 


For the following form, all points plotted are relative to the viewport. 
That is, Vxl and Vy! are added to the x and y coordinates before plot- 
ting the point on the screen. 


VIEW (Vx1,Vyl)-(Vx2,Vy2) 


If the following command 1s executed, then the point set down by the 
statement PSET (0,0),3 will be at the physical screen location 10,10. 


VIEW (10,10)-(200, 100) 


For the following form, all coordinates are screen absolute rather than 
viewport relative: 


VIEW SCREEN (Vx1,Vyl)-(Vx2,Vy2) 


If VBASICA executes the following, then the point set down by the 
statement PSET (0,0),3 will not appear because 0,0 is outside the 
viewport. PSET (10,10),3 is within the viewport, and places the point 
in the upper left corner of the viewport. 


VIEW SCREEN (10,10)-(200,100) 


Many VIEW statements can be executed. If the newly described 
viewport is not wholly within the previous viewport, the screen can be 
reinitialized with the VIEW statement. Then the new viewport can be 
stated. If the new viewport is entirely within the previous one, as in the 
following example, the intermediate VIEW statement isn’t necessary. 
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This example opens three viewports, each smaller than the previous 
one. In each case, a line defined to go beyond the borders is pro- 
grammed, but appears only within the viewport border. 


280 VIEW:REM ** Make the viewport the entire screen 
500 VIEW (10,10) - (300,180),,1 

320 CLS 

540 LINE (0,0) -(310,190),1 

560 LOCATE 1,11: PRINT "A big viewport" 

580 VIEW SCREEN (50,50)-(250,150),,1 

400 CLS:REM**Note, CLS clears only viewport 

420 LINE (300,0)-(0,199),1 


440 LOCATE 9,9: PRINT "A medium viewport" 
460 VIEW SCREEN (80,80)-(200,125),,1 
480 CLS 


500 CIRCLE (150,100),20,1 
520 LOCATE 11,9: PRINT "A small viewport" 
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VIEW PRINT Statement 


FORMAT: 
VIEW PRINT [< top screen line > TO < bottom screen line > ] 
PURPOSE: 
Sets the boundaries of the screen text window. 
REMARKS: 


VIEW PRINT without top and bottom line parameters initializes the 
whole screen area as the text window. 


Statements and functions that operate within the defined text window 
include CLS, LOCATE, PRINT, and SCREEN. 


The Screen Editor limits functions such as scroll and cursor movement 
to the text window. 


Also see the VIEW statement. 
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WAIT Statement 


FORMAT: 
WAIT <port>,<and byte> [,<xor byte > ] 


PURPOSE: 


Suspends program execution while monitoring the status of a machine 
port. 


REMARKS: 


<port> is a numeric expression returning an integer from 0 to 
65535. 


<and byte > is a numeric expression returning an integer from 0 to 
255 and matches a byte coming in from the < port>. 


<xor byte > is a numeric expression returning an integer from 0 to 
255 and checks a byte coming in from the < port>. 


The WAIT statement suspends execution until a specified machine 
input port develops a specified bit pattern. The data read at the port is 
XOR’ed with the integer expression XOR byte and then AND’ed with 
the AND byte. If the result is zero, VBASICA loops back and reads the 
data at the port again. If the result is nonzero, execution continues 
with the next statement. 


WARNING: It is possible to enter an infinite loop with the WAIT 
statement. CTRL-C exits the loop. 
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WHILE...WEND Statement 


FORMAT: 


WHILE < expr > 
[< loop statements > ] 


WEND 


PURPOSE: 


Executes a series of statements in a loop as long as a given condition 1s 
true. 


REMARKS: 


If <expr> is not zero (that is, true), the loop statements are executed 
until the WEND statement is encountered. VBASICA then returns to 
the WHILE statement and checks <expr>. If <expr> 1s still true, 
the process is repeated. If <expr> is not true, execution resumes at 
the statement after the WEND statement. WHILE/WEND loops can 
be nested to any level. Each WEND matches the most recent WHILE. 
An unmatched WHILE statement causes a ““WHILE without WEND” 
error; an unmatched WEND statement causes a “WEND without 
WHILE” error. 


EXAMPLE: 


90 'BUBBLE SORT ARRAY A$ 
100 FLIPS=1 'FORCE ONE PASS THRU LOOP 
110 WHILE FLIPS 
115 FLIPS=0 
120 FOR I=1 TO J-1 
130 IF A$(I)>A$(I+1) THEN 
SWAP A$(I), A$(I+1):FLIPS=1 
140 NEXT I 
150 WEND 
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WIDTH Statement 


FORMAT: 


WIDTH < size > 
WIDTH < file no. > ,< size > 
WIDTH <dev>,<size> 


PURPOSE: 


Sets the printed line width in number of characters for the screen and 
line printer. 


REMARKS: 


<size > is a valid numeric expression returning an integer result from 
0 to 255. This value is the new width. 


< file no. > is a valid numeric expression returning an integer. This 
value is the number of the file OPENed. 


<dev > is a valid string expression returning the device identifier. 


Depending on the device specified, the following actions are possible: 


WIDTH <size> 
WIDTH "SCRN:", <size> 


These commands set the screen width. VBASICA allows only 40- or 
80-column width. 
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NOTE: Changing the screen width clears the screen. Screen mode | 1s 
always 40 columns wide, and Screen mode 2 is always 80 columns. If 
you are in either of these modes and ask to change the width, the 
mode changes to the appropriate one of these two modes. 


WIDTH "LPT1:",<size> 


Used as a deferred width assignment for the line printer. This form of 
WIDTH stores the new width value without changing the current 
width setting. A subsequent OPEN ”’LPT1:” FOR OUTPUT AS 
< number > uses this value for width while the file is open. 


WIDTH <file no.>,<size> 


If the file is open to LPT1:, the line printer’s width is immediately 
changed to the new size specified. This allows the width to be changed 
while the file is open. This form of WIDTH affects only LPT1:. 


RULES: 


1. Valid widths for the screen are 40 and 80. The valid width for the 
line printer is 1 to 255. Any value entered outside these ranges 
results in the “Illegal function call” error. VBASICA retains the pre- 
vious value. 


2. Width has no effect on the keyboard (K YBD:). 


3. Maximum Epson line printer width is 80. WIDTH, however, does 
not complain about values between 80 and 255. 


4. Specifying WIDTH 255 for the line printer (LPT1:) disables line 
folding. 
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EXAMPLE: 


10 WIDTH "LPT1:",75 
20 OPEN "LPT1:" FOR OUTPUT AS #1 


6020 WIDTH #1, 40 


In the preceding example, line 10 stores a line printer width of 75 char- 
acters per line. Line 20 opens file #1 to the line printer and sets the 
width to 75 for subsequent PRINT #1,... statements. Line 6020 
changes the current line printer width to 40 characters per line. 


WINDOW Statement 


FORMAT: 
WINDOW [[SCREEN] (Wx1,Wy1)-(Wx2,Wy2)] 
PURPOSE: 


Defines the logical dimensions of the current viewport, for Graphics 
mode only. 


REMARKS: 


(Wx1,Wy1)-(Wx2,Wy2) are the world coordinates you specify to define 
the coordinates of the lower left and upper right screen border. 


SCREEN inverts the y-axis of the world coordinates so that screen 


coordinates follow the traditional Cartesian system: x increases left to 
right, and y decreases top to bottom. 
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With WINDOW, you can redefine the screen border coordinates. You 
can also draw lines, graphs, or objects in space not bounded by the 
physical dimensions of the screen with world coordinates. When you 
redefine the screen, you can draw graphics within a customized map- 
ping system. 

VBASICA converts world coordinates into physical coordinates for 
subsequent display within the current viewport. To make this transfor- 
mation from world space to the physical space of the viewing surface 
(screen), you must know what portion of the (floating-point) world 
coordinate space contains the information to be displayed. This rec- 
tangular region in world coordinate space is a window. 

RUN or WINDOW with no arguments disables window transforma- 
tion. The WINDOW SCREEN variant inverts the normal Cartesian 
direction of the y coordinate. 


For example, in the default, a section of the screen appears as: 


0,0 50,0 100,0 
| y increases 
100,0 


0,100 50,100 100,100 
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Now execute the following: 
WINDOW (-1,-1)-(1,1) 
and the screen appears as: 
me he | 0,1 1,1 
| y increases 
0,0 
| y decreases 


ea cee D1 coat aa 


If the variant: 
WINDOW SCREEN (-1,-1)-(1,1) 


is executed then the screen appears as: 


10 =] I,-1 
| y decreases 
0,0 
| y increases 


ee 0,1 1,1 
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The following example illustrates two lines with the same endpoint 
coordinates. The first is drawn on the default screen, and the second is 
on a redefined window. 


200 LINE (100,100) - (150,150), 1 
220 LOCATE 2,20:PRINT "The line on the default screen" 
240 WINDOW SCREEN (100,100) - (200,200) 
260 LINE (100,100) - (150,150), 1 
280 LOCATE 8, 18:PRINT "& the same line on 
a redefined window" 


WRITE Statement 


FORMAT: 

WRITE[ < expr list > ] 
PURPOSE: 
Displays data on the screen. 
REMARKS: 


<expr list > is a list of numeric and/or string expressions. Commas 
separate the expressions. If <expr list > is omitted, a blank line is 
output. If <expr list > is included, the values of the expressions are 
displayed on your screen. 


The output items are separated by commas. Strings are delimited by 
quotation marks. After the last item in the list appears, VBASICA 


inserts a carriage return/linefeed. 


WRITE outputs numeric values using the same format as the PRINT 
statement. 
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EXAMPLE: 


10 A=80:B=90:C$="THAT'S ALL" 
20 WRITE A,B,C$ 

RUN 

80,90,"THAT'S ALL" 

Ok 


WRITE# Statement 


FORMAT: 
WRITE# < filenum > , < expr list > 
PURPOSE: 
Writes data to a sequential file. 
REMARKS: 
< filenum > is the number under which a file was opened. 


The expressions in <expr list > are string or numeric expressions, 
separated by commas. 


Unlike PRINT#, WRITE# inserts commas between items as they are 
written to disk, and delimits strings with quotation marks. You do not 
need to put explicit delimiters in the list. A carriage return/linefeed 
sequence is inserted after the last item is written to disk. 


VBASICA Statements, Commands, and Functions 3-213 


Assume that A$ is “CAMERA” and B$ is ”93604-1”. The statement: 
WRITE#1,A$, BE 

writes this to disk: 
"CAMERA" ,"93604-1" 

A subsequent INPUT# statement, such as: 
INPUT#1,A$%,B$ 


inputs “CAMERA” to A§ and ”93604-1” to B$. 
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VBASICA and Communications 


This chapter describes the VBASICA statements required to support 
asynchronous serial communication with other computers and peri- 
pherals, through the RS-232-C ports. 


4.1 Communication I/O 


Because you open the communications port as a file, all Input/output 
statements valid for disk files are valid for COM. 


COM sequential input statements are the same as those for disk files: 
INPUT #< file number > , LINE INPUT # < file number > , and the 
INPUTS$ function. 


COM sequential output statements are the same as those for disk: 
PRINT # < file number > and PRINT # < file number > USING. 


Refer to INPUT and PRINT for details of coding syntax and usage. 


GET and PUT are only slightly different for COM files. See the GET 
and PUT statements for COM. 


The TTY program that follows enables your VBASICA computer to 
be used as a conventional terminal. In addition to full-duplex com- 
munication with a host, the TTY program allows data to be down- 
loaded to a file. Conversely, a file can be up-loaded (transmitted) to 
another machine. 


In addition to demonstrating the elements of asynchronous communi- 


cation, this program is useful in transferring VBASICA programs and 
data to and from your computer. 
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NOTE: The TTY program is set up to communicate using XON and 
XOFF. You may want to modify it for your environment. 


4.2 The TTY Program 


10 SCREEN 0,0:WIDTH 80 

15 KEY OFF:CLS: CLOSE 

20 DEFINT A-Z 

25 LOCATE 25,1 

30 PRINT STRING$(60," ") 

40 FALSE=0:TRUE= NOT FALSE 

50 MENU=5 ' Value of MENU key (CTRL-E) 
60 XOFF$=CHR$(19) : XON$=CHR$ (17) 


100 LOCATE 25,1:PRINT "Async TTY Program "; 
110 LOCATE 1,1:LINE INPUT "Speed? ";SPEED$ 
120 COMFIL$="COM1:"+SPEED$+",E,7" 

130 OPEN COMFIL$ AS #1 


200 PAUSE=FALSE 

210 A$=INKEY$: IF A$="" THEN 230 

220 IF ASC(A$)=MENU THEN 300 ELSE PRINT #1, A$; 
230 IF EOF(1) THEN 210 

240 IF LOC(1)>128 THEN PAUSE=TRUE: PRINT #1, XOFF$; 
250 A$=INPUT$(LOC(1),#1) 

260 PRINT A$;:IF LOC(1)>0 THEN 240 

270 IF PAUSE THEN PAUSE=FALSE:PRINT #1, XON$; 

280 GOTO 210 


300 LOCATE 1,1:PRINT STRING$(S0," "):LOCATE 1,1 
310 LINE INPUT"File? ";DSKFIL$ 


A400 LOCATE 1,1:PRINT STRING$(30," "):LOCATE 1,1 
410 LINE INPUT"(T)ransmit or (R)eceive? ";TXRX$ 
420 IF TXRX$=-"T" THEN OPEN DSKFIL$ FOR INPUT 
AS #2:GOTO 1000 
430 OPEN DSKFIL$ FOR OUTPUT AS #2 = 
440 PRINT #1, CHR$(13); 


4-2 VBASICA 


500 
O10 
920 
950 
940 
950 


600 
610 
620 
650 
640 


650 


1000 
1010 
1020 
1030 
1040 
1050 


1060 


9999 


IF EOF(1) THEN GOSUB 600 

IF LOC(1)>128 THEN PAUSE=TRUE: PRINT #1, XOFF$; 
A$=INPUT$(LOC(1),#1) 

PRINT #2,A$;:IF LOC(1)>0 THEN 510 

IF PAUSE THEN PAUSE=FALSE: PRINT #1, XON$; 

GOTO 500 


FOR I=1 TO 5000 

IF NOT EOF(1) THEN I=9999 

NEXT I 

IF I>9999 THEN RETURN 

CLOSE #2:CLS:LOCATE 25,10:PRINT 
"* Download complete *"; 

GOTO 200 


WHILE NOT EOF(2) 

A$=INPUT$(1,#2) 

PRINT #1,A$; 

WEND 

PRINT #1,CHR$(26); 'CTRL-Z to make close file. 
CLOSE #2:CLS:LOCATE 25,10:PRINT 

"** Upload complete **"; 

GOTO 200 


CLOSE: KEY ON 


4.3 Notes on the TTY Program 


LINE 


NUMBER COMMENTS 


10 
15 


Sets the screen to Alpha mode and sets the width to 80. 


Turns off the soft key display, clears the screen, and ensures all files are 
closed. 


NOTE: Asynchronous implies character I/O, as opposed to line or 
block I/O. Therefore, terminate all PRINTs, either to the COM file or 
to the screen, with a semicolon (;). This action suppresses the carriage 
return/line feed normally issued at the end of a PRINT statement. 
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LINE 


NUMBER 


20 


25-30 
40 

50 

60 
100-130 


200-280 


300-310 
400-420 


4-4 


COMMENTS 
Defines all numeric variables as INTEGER. Primarily for the 
subroutine at 600-620. 
Clears the 25th line starting at column 1. 
Defines Boolean TRUE and FALSE. 
Defines the ASCII (ASC) value of the MENU key. 
Defines the ASCII XON, XOFF characters. 


Prints program ID and asks for baud rate (speed). Opens 
communications to file number I, even parity, 7 data bits. 


Programmer exercise: Modify this section to check for valid baud rates. 


Performs full-duplex I/O between the video screen and the device 
connected to the RS-232-C connector as follows: 


1. Read a character from the keyboard into A$. INKEY$ returns a 
null string if no character is waiting. 


2. If no character is waiting, then check if any characters are being 
received. If a character is waiting at the keyboard, and: 


— Ifthe character is the MENU key, the user is ready to download 
a file, so get the filename. 


— If character (A$) is not the MENU key, send it by writing to the 
communication file (PRINT #1...). 


3. At 230 see if any characters are waiting in COM buffer. If not, then 
go back and check keyboard. 


4. At 240, if more than 128 characters are waiting, then set PAUSE 
flag saying we are suspending input. Send XOFF to host, stopping 
further transmission. 


5. At 250-260, read and display contents of COM buffer on screen 
until empty. Continue to monitor size of COM buffer (in 240). 
Suspend transmission if the program falls behind. 


6. Finally, resume host transmission by sending XON only if 
suspended by previous XOFF. Repeat process until MENU key is 
struck. 


Get disk file name we are downloading to. Open file to tie number 2. 


Asks if file named is to be transmitted (uploaded) or received 
(downloaded). 
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LINE 


NUMBER 
430 

500 

510 
520-530 
540-550 
600-650 
1000-1060 
9999 


COMMENTS 


Sends a carriage return to the host to begin the download. This program 
assumes that the last command sent to the host was to begin such a 
transfer and was missing only the terminating carriage return. If a DEC 
system is the host, then such a command might be the following: 


COPY TTY: = MANUAL.MEM < MENU key > 
where the MENU key was struck instead of Return. 


When no more characters are being received (LOC(x) returns 0), then 
perform a time-out routine (see line 600). 


Again, if more than 128 characters are waiting, signal a pause and send 
XOFF to the host while up. 


Read all characters in COM queue (LOC(x)) and write them to disk 
(PRINT #2..) until caught up. 


If a pause was issued, restart host by sending XON and clear the 
pause flag. Continue process until no characters are received for a 
predetermined time. 


This is the time-out subroutine. The FOR loop count was determined 
by experimentation. In short, if no character is received from the host 
for 17-20 seconds, then transmission is assumed complete. If any 
character is received during this time (line 610), then I is set well above 
FOR loop range to exit loop and then return to caller. If host 
transmission is complete, close the disk file and return to being a 
terminal. 


Transmit routine. Until end of disk file do the following: 


Read one character into A$ with INPUT$ statement. Send character to 
COM device in 1020. Send a CTRL-Z at end of file in 1040 in case 
receiving device needs one to close its file. Finally, in lines 1050 and 
1060, close our disk file, print completion message and go back to 
conversion mode in line 200. 


Presently not executed. As an exercise, add some lines to the routine 
400-420 to exit the program via line 9999. This line closes the COM 
file left open and restores the soft key display. 
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4.4 The COM1I/O Functions 


The most difficult aspect of asynchronous communication 1s process- 
ing characters as fast as they are received. At rates above 2400 bps, 
character transmission must be suspended from the host long enough 
to catch up. This suspension can be done by sending XOFF (CTRL-S) 
to the host and XON (CTRL-Q) when ready to resume. 


VBASICA provides three functions to help determine when an “over- 
run” condition is imminent: 


LOC(x) 


LOF(x) 


EOF(x) 


Returns the number of characters in the input queue 
waiting to be read. The input queue can hold more than 
255 characters (determined by the /C: switch). If there 
are more than 255 characters in the queue, LOC(x) 
returns 255. Because a string is limited to 255 characters, 
this practical limit alleviates the need for the programmer 
to test for string size before reading data into it. If fewer 
than 255 characters remain in the queue, LOC(x) returns 
the actual count. 


Returns the amount of free space in the input queue— 
that is, /C: <size> — LOC(x). You can use LOF to 
detect when the input queue is getting full. LOC is ade- 
quate for this purpose, as shown in the programming 
example. 


If true (— 1), indicates that the input queue is empty. 
Returns false (0) if any characters are waiting to be read. 


These errors can occur: 


1. “Communication Buffer Overflow” occurs if a read is attempted 
after the input queue is full (that is, LOC(x) returns 0). 


2. “Device I/O Error” occurs if any of the following line conditions are 
detected on receive: Overrun Error (OE), Framing Error (FE), or 
Break Interrupt (BI). The error is reset by subsequent inputs but the 
character causing the error is lost. 


3. “‘Device Fault” occurs if data set ready (DSR) is lost during I/O. 


4-6 


VBASICA 


A 


Error Messages 


VBASICA provides the following error messages. The error codes and 
messages described in this appendix can appear when you are using the 
VBASICA Interpreter. Each message is explained and corrective mea- 
sures are suggested, when appropriate. 


CODE 
NUMBER 


Error Messages 


MESSAGE 


NEXT without FOR 
A variable in a NEXT statement does not correspond to any previously 
executed, unmatched FOR statement variable. 


Syntax error 

A line contains an incorrect sequence of characters, such as unmatched 
parentheses, misspelled command or statement, incorrect punctuation, 
and so on. 


Return without GOSUB 
A RETURN statement appears without a previous, unmatched 
GOSUB statement. 


Out of data 
VBASICA executes a READ statement when no remaining DATA 
statements exist that contain unread data. 


Illegal function call 
An out-of-range parameter is passed to a math or string function. An 
FC error can also occur as the result of: 


> A negative or unreasonably large subscript 

> A negative or zero argument with LOG 

> A negative argument to SQR 

> A negative mantissa with a noninteger exponent 
> 


A call to a USR function for which the starting address was not 
given 


> An incorrect argument to MID$, LEFT$, RIGHTS, INP, OUT, 
WAIT, PEEK, POKE, TAB, SPC, STRING$, SPACE$, INSTR, or 
ON...GOTO 


A-] 


MESSAGE 


Overflow 

The result of a calculation is too large to be represented in VBASICA 
number format. If underflow occurs, the result is zero and execution 
continues without an error. 


Out of memory 
A program is too large, has too many FOR loops or GOSUBs, has too 
many variables, or contains expressions that are too complicated. 


Undefined line 
A line reference in a GOTO, GOSUB, IF...THEN...ELSE, or DELETE 
refers to a nonexistent line. 


Subscript out of range 
An array element is referenced with a subscript outside the dimensions 
of the array or with the wrong number of subscripts. 


Redimensioned array 
Two DIM statements are given for the same array, or a DIM statement 
is given for an array when the default dimension is 10. 


Division by zero 

An expression contains a division by zero or the operation of involution 
raises zero to a negative power. Machine infinity with the sign of the 
numerator is supplied as the result of the division, or positive machine 
infinity is supplied as the result of the involution. In both cases, 
execution continues. 


Illegal direct 
You have entered a statement that is illegal in direct mode. 


Type mismatch 

A string variable name is assigned a numeric value (or vice versa), or a 
function that expects a numeric argument is given a string argument (or 
vice versa). 


Out of string space 

String variables caused VBASICA to exceed the remaining free 
memory. VBASICA allocates string space dynamically until it runs out 
of memory. 


String too long 
You have tried to create a string more than 255 characters long. 


String formula too complex 
A string expression is too long or too complex. The expression must be 
broken into smaller expressions. 
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CODE 
NUMBER 


17 


18 


20 


21 


22 
23 


24 


25 


26 


29 


30 


50 


Error Messages 


MESSAGE 
Can’t continue 
You have tried to continue a program that: 
> Has halted due to an error 
> Modified during a break in execution 
> Does not exist 


Undefined user function 
A USR function is called before the function definition (DEF 
statement) is given. 


No RESUME 


You entered an error-trapping routine that lacks a RESUME statement. 


RESUME without error 
VBASICA encounters a RESUME statement before it enters an error- 
trapping routine. 


Unprintable error 
An error message is not available for the error condition that exists. An 
error with an undefined error code usually causes this error. 


Missing operand 
An expression contains an operator without a following operand. 


Line buffer overflow 
You tried to input a line with too many characters. 


Device Timeout 


' VBASICA does not receive information from an I/O device within a 


predetermined amount of time. 


Device I/O Error 

Fault status is returned from the parallel and serial devices. Usually 
indicates a hardware error in the printer or serial communications 
channel. 


FOR without NEXT 
A FOR does not have a matching NEXT. 


WHILE without WEND 
A WHILE statement does not have a matching WEND. 


WEND without WHILE 
A WEND does not have a matching WHILE. 


Field overflow 
A FIELD statement tried to allocate more bytes than were specified for 
the record length of a random file. 


CODE 


NUMBER 


51 


52 


53 


54 


55 


57 


58 


61 


62 


63 


64 


66 
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MESSAGE 


Internal error 
An internal malfunction has occurred in VBASICA. Report to your 
dealer the conditions under which the message appeared. 


Bad file number 
A statement or command references a file with a file number that is not 
OPEN, or is out of the range of file numbers specified at initialization. 


File not found 
A LOAD, KILL, or OPEN statement references a disk file that does not 
exist. 


Bad file mode 

You have tried to use PUT, GET, or LOF with a sequential file, to 
LOAD a random file, or to execute an OPEN with a file mode other 
than I, O, or R. 


File already open 
VBASICA issues a sequential output mode OPEN for a file already 
open, or a KILL is given for an open file. 


I/O error 

An I/O error occurs on a device I/O operation. This error is fatal; the 
operating system cannot recover from the error. Formerly was Disk I/O 
error. 


File already exists 
The filename specified in a NAME statement is identical to a filename 
already in use on the disk. 


Disk full 
All disk storage space is in use. 


Input past end 

VBASICA executes an INPUT statement for a null (empty) file, or after 
all the data in the file was INPUT. To avoid this error, use the EOF 
function to detect end-of-file. 


Bad record number 
The record number in a PUT or GET statement is greater than the 
maximum allowed (32,767) or equal to zero. 


Bad file name 
An illegal form is used for the filename in a LOAD, SAVE, KILL, or 
OPEN statement, for example, a filename with too many characters. 


Direct statement in file 
VBASICA encountered a direct statement in the file while LOADing an 
ASCIlI-format file. VBASICA terminates the LOAD. 
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CODE 
NUMBER MESSAGE 


67 Too many files 
You tried to create a new file (using SAVE or OPEN) when all 255 
directory entries are full. 


68 Device Unavailable 
An attempt is made to open a file to a nonexistent device. Hardware 
may not exist to support the device, such as LPT2: or LPT3:, or you 
may have disabled it. This error occurs if VBASICA executes an OPEN 
”“COM1:... statement but you disable RS-232-S with the /C:0 switch 
directive on the command line. 


69 Communication Buffer Overflow 
VBASICA executes a communication input statement but the input 
queue is already full. Use an ON ERROR GOTO statement to retry the 
input when this condition occurs. Subsequent inputs attempt to clear 
this fault unless characters continue to be received faster than the 
program can process them. In this case several options are available: 


1. Increase the size of the COM receive buffer with the /C: switch. 


2. Implement a hand-shaking protocol with the host/satellite such as 
XON/XOFF, as demonstrated in the TTY programming example, A 
to turn transmit off long enough to catch up. 


3. Use a lower baud rate for transmit and receive. 


70 Disk Write Protect 
One of the three hard disk errors returned from the diskette controller. 
This error occurs when you try to write to a write-protected diskette. 
Use an ON ERROR GOTO statement to detect this situation and 
request user action. 


71 Disk Not Ready 
The diskette drive door is open or a diskette is not in the drive. Recover 
with an ON ERROR GOTO statement. 


72 Disk Media Error 
Occurs when the FDC controller detects a hardware or media fault. 
This error usually indicates harmed media. Copy existing files to a new 
diskette and reformat the damaged diskette. FORMAT flags the bad 
tracks and places them in a file badtrack. The remainder of the diskette 
is now usable. 
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Extended Codes 


Certain keys or combinations of keys cannot return a value within the 
ASCII code range. These keys are remapped to generate an extended 
code when VBASICA executes an INKEY$ statement. The codes 
returned by the INKEY$ statement consist of an ASCII null (00) as 
the first part of the two-byte string. If a two-byte string is received by 
INKEY$, then check the second key value to determine the key 
pressed. The ASCII code in decimal and the associated key(s) are 
shown below: 


SECOND 
CODE MEANING 
15 Shift Tab, — 
59-68 Function keys | through 10 (when not used as soft keys) 
71 Home 
72 Cursor Up 
75 Cursor Left 
77 Cursor Right 
80 Cursor Down 
82 Insert 
83 Delete 
84-93 Shifted function keys | through 
94-103 CTRL function keys | throug] 
119 CTRL-Home 


NOTE: This appendix will be enh ~—-d with future releases of this 
product. 
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ASCII Character Codes 


ASCII Value 


Screen Code 

Decimal Hex Character Name Keystroke 
000 00 (null) NUL — 
OO! 01 ©) SOH CTRL-A 
(02 02 @ STX CTRL-B 
003 ()3 € ETX CTRL-C 
004 (4 r EOT CTRL-D 
005 05S ry ENQ CTRL-E 
006 06 @ ACK CTRL-F 
Q()7 ()7 (beep) BEL CTRL-G 
008 08 - BS CTRL-H 
009 ()9 (tab) HT CTRL-I 
O10 OA (line feed) LF CTRL-J 
O11 OB (home) VT CTRL-K 
(12 OC (form feed) FF CTRL-L 
Q13 QOD (carriage return) CR CTRL-M 
014 OE Jd SO CTRL-N 
O15 OF xt SI CTRL-O 
016 10 oa DLE CTRL-P 
O17 i! < DC | CTRL-Q 
O18 12 { Dc2 CTRL-R 
QO 13 i DC3 CTRL-S 
020 14 T DC4 CPRL-T 
(21 IS § NAK CTREL-U 
()22 l6 _ SYN CTRL-V 
023 17 { ETB CIRL-W 
(24 I8 t CAN CTRL-X 
()25 19 { EM CTRL-Y 
026 lA — SUB CTRL-Z 
()27 IB _ ESC Escape Key 
(28 IC (cursor right) FS 
029 ID (cursor Icft) GS 
030 IE (cursor up) RS 
031 IF (cursor down) US 


ASCH Character Codes C-] 


ASCH Value 


Screen ASCII Value Screen 
Decimal Hex Character Decimal Hex Character 
()32 20 (space) 064 40 @ eon 
033 21 ! 065 41 A 
034 22 . 066 42 B 
()35 23 # 067 43 C 
036 24 $ 068 44 D 
()37 25 % 069 45 E 
038 26 & 070 46 I 
039 27 ; O71 47 G 
040 28 ( ()72 48 H 
(4 | 29 ) 073 49 I 
(42 2A ‘ ()74 4A J 
043 2B + 075 4B K 
(44 2C ' 076 4C I. 
045 21) - (77 4) M 
046 21: : 078 4k: N 
(47 2F / 079 4|: Q) 
048 30 () O80 50 P 
049 31 l O8 | 51 Q 
O50 32 2 082 52 R 
OSI 33 3 083 53 S 
()S2 34 4 084 54 T 
(53 35 5 O85 55 U 
OS4 36 6 O86 56 V 
OSS 37 7 087 57 W 
056 38 8 O88 58 Xx 
057 39 9 O89 59 Y 
OS8 3A : (90 5A Z. 
(59 3B 091 5B | 
060 3C . (92 5C \ 
061 3D = 0093 5D 
062 3E > (94 SE A 
063 3F ? 095 SF a 
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ASCII Value 


Screen ASCH Value Screen 
Decimal Hex Character Decimal Hex Character 
096 60 128 80 G 
097 61 a 129 81 u 
098 62 b 130 82 é 
099 63 c 131 $3 
100 64 dl 132 84 i 
Ol 65 c 133 85 
102 66 f 134 86 a 
103 67 2 135 87 ¢ 
104 68 h 136 88 @ 
105 69 i 137 89 e 
106 6A j 138 8A é 
107 6B k 139 8B ‘ 
1O8 6C | 140 8C 
109 6D m 141 XD 
HO OE n 142 1B A 
a OF 0 143 8h \ 
112 10 p 144 ve) E 
113 71 q 145 9| we 
ie 114 72 ‘ 146 92 A 
a 115 73 s 147 3 a 
116 74 148 y4 O 
117 75 u 149 95 3 
118 716 v 150 96 ft 
119 77 W 151 97 U 
120 78 x 152 98 y 
121 79 y 153 99 O 
[22 TA 7. 154 9A U 
123 7B 155 9B ¢ 
124 7C 156 9C £ 
125 7D 157 YD ¥ 
126 TE © 158 JE Pt 
f 


127 7F a 159 OF 


ASCII Character Codes C-3 


ASCII Value 


Screen ASCH Value Screen 
Decimal Hex Character Decimal Hex Character 

160 AO a 192 CO L = 
lol Al 193 Cl 4. 
162 A2 0 194 (2 os 
103 A3 r 195 C3 r 
Lod Ad i 196 (4 - 
165 AS N 197 C5 I 
166 AO a) 198 C6 |- 
107 AT 0 hoy (7 ! 
IOS > AB 200 C8 M 
1O9 AY 201 C9 iv 
170 AA 202 CA at 
171 AB 203 CB "2 
172 AC ‘4 2()-4 CC 
173 AID 2005 CD ee 
17-4 AL : 206 CE ae 
175 AV » 2()7 Ch He 
170 BO 208 10 Hl 
177 BI on 209 DI = 
178 132 aS 210 12 = 
179 133 | 211 13 u 
I8a B-4 | 212 1)4 o 
ISI 135 4 213 15 7 
182 Bo l 214 D6 7 
183 B7 n 215 17 i 
[x4 138 = 216 D8 + 
185 Bo = 217 19 ! 
1X6 BA I 218 DA ' 
187 BB =I 219 DB | 
188 BC | 220 De — 
189 BID u 221 DD a 
190 BE 7 222 DI: a 
191 BE 223 DE om 
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ASCII Character Codes 


ASCII Value 


Decimal 


224 
225 
226 
227] 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
24 | 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 


Hex 


8A) 
El 
2 
E3 
E4 
ES 
[6 
E7 
E8 
E9 


Screen 
Character 


yOreQgs TS d Oe Se MA IS 


"Ge ey TN Iu I+ 


n 
2 


@ 
(blank ‘FF’) 


Mathematical Functions 


Functions not intrinsic to VBASICA are calculated as follows. 


FUNCTION 


Secant 
Cosecant 
Cotangent 
Inverse sine 
Inverse cosine 


Inverse secant 


Inverse cosecant 


Inverse cotangent 
Hyperbolic sine 
Hyperbolic cosine 
Hyperbolic tangent 
Hyperbolic secant 
Hyperbolic cosecant 
Hyperbolic cotangent 
Inverse hyperbolic sine 
Inverse hyperbolic cosine 
Inverse hyperbolic tangent 
Inverse hyperbolic secant 
Inverse hyperbolic cosecant 


Inverse hyperbolic cotangent 


Mathematical Functions 


VBASICA EQUIVALENT 


SEC(X) = 1/COS(X) 

CSC(X) = 1/SIN(X) 

COT(X) = 1/TAN(X) 

ARCSIN(X) = ATN(X/SQR( — X*X + 1)) 
ARCCOS(X) = — ATN(X/SQR( — X*X + 1)) + 1.5708 


ARCSEC(X) = ATN(X/SQR(X*X — 1)) 
+ SGN(SGN(X) — 1)*1.5708 


ARCCSC(X) = ATN(X/SQR(X*X — 1)) 
+ (SGN(X) — 1)*1.5708 


ARCCOT(X) = ATN(X) + 1.5708 

SINH(X) = (EXP(X) — EXP( — X))/2 

COSH(X) = (EXP(X) + EXP( — X))/2 

TANH(X) = EXP( — X)/EXP(X) + EXP( — X))*2+ 1 
SECH(X) = 2/(EXP(X) + EXP( — X)) 

CSCH(X) = 2/((EXP(X) — EXP( — X)) 

COTH(X) = EXP( — X)/(EXP(X) — EXP( — X))*2 +1 
ARCSINH(X) = LOG(X + SQR(X*X + 1)) 
ARCCOSH(X) = LOG(X + SQR(X*X — 1)) 
ARCTANH(X) = LOG((I + X)/(I — X))/2 
ARCSECH(X) = LOG((SQR( — X*X + 1) + 1)/X) 
ARCCSCH(X) = LOG((SGN(X)*SQR(X*X + 1) + 1)/X 
ARCCOTH(X) = LOG((X + 1)/(X — 1))/2 
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Converting Programs to VBASICA 


If you have programs written in a BASIC other than VBASICA, some 
minor adjustments may be necessary before running them. This 
appendix describes specific things to look for when converting BASIC 
programs to VBASICA. 


String Dimensions 


Delete all statements that declare the length of strings. A statement 
such as DIM A§$(I,J), which dimensions a one-dimensional string array 
for J elements of length I, should be converted to the VBASICA 
statement DIM A$(J). 


Some BASICs use a comma or ampersand for string concatenation. 
Each of these must be changed to a plus sign, the operator used in 
VBASICA for string concatenation. 


In VBASICA, the MID$, RIGHT$, and LEFT$ functions are used to 
take substrings of strings. Forms used by other BASICs, such as A$(I) 
to access the Ith character in A$, or A$(I,J) to take a substring of A$ 
from position I to position J, must be changed as follows: 


OTHER BASIC VBASICA 
X$ = AS(D X$ = MID$(A$,I, 1) 
X$ = AS(LJ) X$ = MIDS(A$,1LJ-I + 1) 
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If the substring reference is on the left side of an assignment and you 
use X$ to replace characters in A$, convert as follows: 


OTHER BASIC VBASICA 


AS$(I) = X$ MID§(A$, 1,1) = X$ 
AS$(1,J9) = X$ MID$(A$,1,J-I + 1) = X$ 


Multiple Assignments 


Some BASICs allow statements of the form: 
10 LET B=C=0 


to set B and C equal to zero. If this statement appears in a VBASICA 
program, VBASICA interprets the second equal sign as a logical 
operator, and sets B equal to — | if C is equal to 0. To make sure that 
this statement is interpreted correctly, convert it to two assignment 
statements: 


10 C=0:B=0 


Multiple Statements 


Some BASICs use a backslash (\) to separate multiple statements on a 
line. With VBASICA, be sure all statements on a line are separated by 
a colon (:). 


MAT Functions 


Programs using the MAT functions available in some BASICs must be 
rewritten using FOR...NEXT loops to execute properly. 
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VBASICA Disk I/O 


This appendix describes disk I/O procedures. If you are new to 
VBASICA or you are getting disk-related errors, read through these 
procedures and program examples to make sure you’re using all the 
disk statements correctly. 


Wherever a filename is required in a disk command or statement, use 
a name that conforms to your operating system’s requirements. 


G.1 Program File Commands 


Here is a review of the commands and statements used in program file 
manipulation. 


SAVE<filename>[,A] 


Writes the program in memory to a disk file. The A option writes the 
program as a series of ASCII characters; otherwise, VBASICA uses a 
compressed binary format. 


LOAD<filename>[,R] 


Loads a program from a disk file into memory. The R option runs the 
program immediately. 


LOAD deletes the current contents of memory and closes all files 
before LOADing. If R is included, however, open data files are kept 
open. Programs can be chained or loaded in sections and still access 
the same data files. 


LOAD < filename > ,R and RUN < filename > ,R are equivalent. 
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RUN<filename>[,R] 


Loads the program from disk into memory and runs it. RUN deletes 
the current memory contents and closes all files before loading the pro- 
gram. If the R option is included, all open data files are kept open. 


RUN < filename > ,R and LOAD < filename > ,R are equivalent. 
MERGE< filename> 


Loads the program from disk into memory without deleting the 
current memory contents. Line numbers used by the disk program are 
merged with the line numbers in memory. If two lines have the same 
number, only the line from the disk program is saved. After a MERGE 
command, the merged program resides in memory, and VBASICA 
returns to command level. 


KILL<filename> 


Deletes the specified file from the disk. < filename > can be a pro- 
gram file, or a sequential or random access data file. 


NAME <old filename> AS <new filename> 


Changes the name of a disk file. NAME can be used with program 
files, random files, or sequential files. 


G.2 Protected File 


To save a program in an encoded binary format, use the P (Protect) 
option with the SAVE command: 


SAVE "MYPROG",P 
A program saved in this way cannot be listed or edited. You may also 


want to save an unprotected copy of the program for listing and edit- 
ing purposes. 
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G.3. Disk Data Files—Sequential and Random 
1/O 


Two types of disk data files are created and accessed by a VBASICA 
program: sequential files and random access files. 


G.3.1 Sequential Files 


Although sequential files are easier to create than random files, they 
are not as fast or flexible when accessing the data. Data written to a 
sequential file is a series of ASCII characters stored one item after 
another (sequentially) in the order it is sent. Data is read back the 
same way. 


The statements and functions used with sequential files are: 


OPEN 

CLOSE 

PRINT#, PRINT# USING 
EOF 

INPUT#, LINE INPUT# 
LOC 

WRITE# 


Follow these steps to recreate a sequential file and access the data in 
the file: 


1. OPEN the file in O mode: 
OPEN "0" #1,"DATA" 


2. Write data to the file using the PRINT# statement. (WRITE# can 
be used instead.) 


PRINT#1, A$;B$; C$ 
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3. To access the data in the file, you must CLOSE the file and reopen 
it in “I”? mode. 


CLOSE #1 
OPEN "I",#1,"DATA" 


4. Use the INPUT# statement to read data from the sequential file 
into the program. 


INPUT#1,X%$,Y$,Z$ 


Here is a short program that creates a sequential file, “DATA’’, from 
information you enter at the keyboard: 


10 OPEN "O" #1, "DATA" 
20 INPUT "NAME": N$ 

25 IF N$="DONE" THEN END 

30 INPUT "DEPARTMENT" : D$ 

40 INPUT "DATE HIRED": H$ 

50 PRINT#1,N$:",":D$:",":H$ een 
60 PRINT:GOTO 20 

RUN 

NAME? MICKEY MOUSE 

DEPARTMENT? AUDIO/VISUAL AIDS 
DATE HIRED? 01/12/72 


NAME? SHERLOCK HOLMES 
DEPARTMENT? RESEARCH 
DATE HIRED? 12/03/65 


NAME? EBENEZER SCROOGE 
DEPARTMENT? ACCOUNTING 
DATE HIRED? 04/27/83 


NAME? MANFRED MANN 
DEPARTMENT? KEYBOARD REPAIR 
DATE HIRED? 08/16/83 
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The next program accesses the file created in the previous example and 
displays the name of everyone hired in 1983: 


10 OPEN "I" ,#1,"DATA" 

20 INPUT#1,N$,D$,H$ 

30 IF RIGHT$(H$,2)="78" THEN PRINT N$ 
40 GOTO 20 

RUN 

EBENEZER SCROOGE 

MANFRED MANN 

Input past end in 20 

Ok 


The preceding program reads (sequentially) every item in the file. 
When all the data is read, line 20 causes an “Input past end” error. To 
avoid getting this error, insert the following line 15, which uses the 
EOF function to test for end-of-file: 


15 IF EOF(1) THEN END 
Then change line 40 to: 


GOTO 15 


A program that creates a sequential file can also write formatted data 
to the disk with the PRINT# USING statement. For example, the 
statement: 


PRINT#1, USING" #### .##,";A,B,C,D 


can be used to write numeric data to disk without explicit delimiters. 
The comma at the end of the format string serves to separate the items 
in the disk file. 


When used with a sequential file, the LOC function returns the 
number of sectors that have been written to or read from the file since 
it was OPENed. (A sector 1s a 128-byte block of data.) 
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Adding Data to a Sequential File 


If you want to add data to the end of a sequential file residing on disk, 

you cannot simply open the file in O mode and start writing data. If 
you do this, you destroy the current contents of the sequential file. 
Instead, use the following procedure (used here to add data to an exist- 

ing file called NAMES): 


1. OPEN NAMES in Insert mode. 

. OPEN a second file called COPY in O mode. 

. Read in the data in NAMES and write it to COPY. 
. CLOSE NAMES and KILL it. 

. Write the new information to COPY. 

. Rename COPY as NAMES and CLOSE. 


. Now there is a disk file called NAMES that includes all previous 
data plus the new data you just added. 


SI HN A HR W WN 


The next example illustrates this technique: 


10 ON ERROR GOTO 2000 

20 OPEN "I",#1, "NAMES" 

30 REM IF FILE EXISTS, WRITE IT TO "COPY" 

40 OPEN "0",#2,"COPY" 

50 IF EOF(1) THEN 90 

60 LINE INPUT#1, A$ 

70 PRINT#2, A$ 

80 GOTO 50 

90 CLOSE #1 

100 KILL "NAMES" 

110 REM ADD NEW ENTRIES TO FILE 

120 INPUT "NAME"; N$ 

130 IF N$=""THEN 200 'CARRIAGE RETURN EXITS 
INPUT LOOP 

140 LINE INPUT "ADDRESS? "; A$ 

150 LINE INPUT "BIRTHDAY? ";B$ 

160 PRINT#2, N$ 

170 PRINT#2, A$ 

180 PRINT#2, B$ 

190 PRINT:GOTO 120 
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200 CLOSE 

205 REM CHANGE FILENAME BACK TO "NAMES" 

210 NAME "COPY" AS "NAMES" 

2000 IF ERR=535 AND ERL=20 THEN OPEN 
"0", #2,"COPY":RESUME 120 

2010 ON ERROR GOTO O 


The preceding program can be used to create or add to a file called 
NAMES. This program also shows how to use LINE INPUT# to read 
strings that contain commas from the disk file. Remember, LINE 
INPUT# reads in characters from the disk until it sees a carriage 
return or it has read 255 characters. (It does not stop at quotation 
marks or commas.) 


The error-trapping routine in line 2000 traps a “File does not exist” 
error in line 20. When this happens, the statements that copy the file 
are skipped, and COPY is created as a new file. 


G.3.2 Random Files 


You need more program steps to create and access random files than 
you do with sequential files; however, there are advantages to taking 
the extra trouble. One advantage is that random files require less room 
on the disk; VBASICA stores them in a packed binary format. (A 
sequential file is stored as a series of ASCII characters.) The biggest 
advantage to random files is that data is accessed randomly. You don’t 
have to read through all the information, as you do with sequential 
files. Random access is possible because the information is stored and 
accessed in distinct units called records. Each record is numbered, 
making it easy for VBASICA to locate the record you need. 
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The statements and functions used with random files are: 


OPEN 

PUT 

MKI$, MKS$, MKD$ 
FIELD 

CLOSE 

CVI, CVS, CVD 
LSET/RSET 

LOC 

GET 


Creating a Random File 


Use these program steps to create a random file. 


I. 


OPEN the file for random access (R mode). This example specifies a 
record length of 32 bytes. If the record length is omitted, the default 
is 128 bytes. 


OPEN "R",#1,"FILE", 32 


. Use the FIELD statement to allocate space in the random buffer for 


the variables to be written to the random file. 


FIELD #1, 20 AS N$, 4 AS A$, 8 AS P$ 


. Use LSET to move the data into the random buffer. Numeric values 


must be put into strings when put in the buffer. To do this, use the 
“make” functions: MKI$ to make an integer value into a string; 
MKS$ for a single-precision value; and MKD§ for a double- 
precision value. 


LSET N$=X$ 
LSET A$=MKS$ (AMT) 
LSET P$=TEL$ 
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4. Finally, use the PUT statement to write data from the buffer to the 
disk: 


PUT #1, CODE% 


The next example accepts input data from the keyboard and writes it 
to a random file: 


10 
20 
50 
40 
50 
60 
70 
80 
90 


OPEN 

FIELD 
INPUT 
INPUT 
INPUT 
INPUT 


"R" #1,"FILE", 32 

#1, 20 AS N$, 4 AS A$, 8 AS P$ 
"2-DIGIT CODE" ; CODEZ% 

"NAME" ; X$ 

" AMOUNT" ; AMT 

"PHONE" ; TEL$ : PRINT 


LSET N$=X$ 

LSET A$=MKS$( AMT) 
LSET P$=TEL$ 

100 PUT #1, CODEZ 

110 GOTO 30 


loan Each time the PUT statement is executed, a record is written to the 
file. The two-digit code input in line 30 becomes the record number. 


Do not use a FIELDed string variable in an INPUT or LET statement. 
This causes the pointer for that variable to point into string space 
instead of the random file buffer. 
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Accessing a Random File 
These program steps are required to access a random file: 
1. OPEN the file in “R”’ mode: 


OPEN "R",#1,"FILE", 32 


2. Use the FIELD statement to allocate space in the random buffer for 
the variables that will be read from the file. 


FIELD #1 20 AS N$, 4 AS A$, 8 AS P$ 


If a program does input and output on the same random file, you 
can often use just one OPEN statement and one FIELD statement. 


3. Use the GET statement to move the desired record into the random 
buffer: 


GET #1, CODE 


4. The data in the buffer can now be accessed by the program. Convert 
numeric values back to numbers using the “convert” functions: CVI 
for integers; CVS for single-precision values; and CVD for double- 
precision values: 


PRINT N$ 
PRINT CVS(A$) 


Using this procedure, you can use a three-digit code to access and 
display records in the random file ‘““FILE” created in the last example: 


10 OPEN "R",#1,"FILE", 32 

20 FIELD #1, 20 AS N$, 4 AS A$, 8 AS P$ 
30 INPUT "2-DIGIT CODE" ; CODEZ 

40 GET #1,CODEZ% 

50 PRINT NZ 

60 PRINT USING "$$###.##";CVS(A$) 

70 PRINT P$:PRINT 

80 GOTO 30 
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With random files, the LOC function returns the current record 
number. The current record number is computed by adding one to the 
number of the last record used in a GET or PUT statement. For exam- 
ple, this statement ends program execution if the current record 
number in file 1 is higher than 50: 


IF LOC(1)>50 THEN END 


The next program is an inventory program that uses random file 
access. In this program, the record number is also the part number, 
and it is assumed the inventory uses no more than 100 different part 
numbers. Lines 900-960 initialize the data file by writing CHR$(255) 
as the first character of each record. This character is used later (line 
270 and line 500) to determine whether an entry already exists for that 
part number. Lines 130-220 show the different inventory functions 
that the program performs. When you type in the desired function 
number, line 230 branches to the appropriate subroutine. Here is the 
inventory program: 


120 OPEN "R",#1,"INVEN.DAT" , 39 

125 FIELD#1,1 AS F$,30 AS D$,2 AS Q$,2 AS R$,4 AS P$ 

130 PRINT:PRINT "FUNCTIONS: ":PRINT 

135 PRINT 1,"INITIALIZE FILE" 

140 PRINT 2,"CREATE A NEW ENTRY" 

150 PRINT 3,"DISPLAY INVENTORY FOR ONE PART" 

160 PRINT 4,"ADD TO STOCK" 

170 PRINT 5,"SUBTRACT FROM STOCK" 

180 PRINT 6,"DISPLAY ALL ITEMS BELOW REORDER LEVEL" 

220 PRINT: PRINT: INPUT" FUNCTION" ; FUNCTION 

225 IF (FUNCTION<1)OR(FUNCTION>6) THEN PRINT 
"BAD FUNCTION NUMBER":GO TO 130 

230 ON FUNCTION GOSUB 900,250,390, 480,560,680 

240 GOTO 220 

250 REM BUILD NEW ENTRY 

260 GOSUB 840 

270 IF ASC(F$)>255 THEN INPUT"OVERWRITE": A$: 
IF A$>"Y" THEN RETURN 

280 LSET F$=CHR$(0) 

290 INPUT "DESCRIPTION" ; DESC$ 

300 LSET D$=DESC$ 

310 INPUT "QUANTITY IN STOCK"; Q% 

320 LSET Q$=MKI$(QZ) 

330 INPUT "REORDER LEVEL"; RZ 

340 LSET R$=MKI$(RZ) 

350 INPUT "UNIT PRICE": P 
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LSET P$=MKS$(P) 

PUT#1, PARTY 

RETURN 

REM DISPLAY ENTRY 

GOSUB 840 

IF ASC (F%)-255 THEN PRINT "NULL ENTRY" : RETURN 
PRINT USING "PART NUMBER ###"; PARTY 

PRINT D$ 

PRINT USING "QUANTITY ON HAND #####";CVI(Q$) 
PRINT USING "REORDER LEVEL #####";CVI(R$) 
PRINT USING "UNIT PRICE$$##.##"; CVS(P$) 
RETURN 

REM ADD TO STOCK 

GOSUB 840 

IF ASC(F$)=255 THEN PRINT "NULL ENTRY": RETURN 
PRINT D$:INPUT"QUANTITY TO ADD"; AZ 

QZ=CVI (QS) +AZ 

LSET Q$=MKI$ (QZ) 

PUT #1, PARTY 

RETURN 

REM REMOVE FROM STOCK 

GOSUB 840 

IF ASC(F$)=255 THEN PRINT "NULL ENTRY": RETURN 
PRINT D$ 

INPUT "QUANTITY TO SUBTRACT"; SZ 

QZ=CVI( QS) 

IF (Q%-S%)<O THEN PRINT "ONLY";Q%;"IN STOCK":GOTO 600 
Q%=Q%-S% 

IF Q%=<CVI(R$) THEN PRINT"QUANTITY NOW"; Q%; 
"REORDER LEVEL"; CVI(R$) 

LSET Q$=MKI$ (QZ) 

PUT#1, PARTY 

RETURN 

DISPLAY ITEMS BELOW REORDER LEVEL 

FOR I=1 TO 100 

GET#1,I 

IF CVI(Q$)CVI(R$) THEN PRINT D$; "QUANTITY"; 
CVI (Q$)TAB(50) "REORDER LEVEL"; CVI(R$) 
NEXT I 

RETURN 

INPUT "PART NUMBER" ; PARTY 

IF (PART%<1)OR(PART%>100)THEN PRINT "BAD PART 
NUMBER": GOTO 840 ELSE GET #1, PARTZ:RETURN 
END 

REM INITIALIZE FILE 

INPUT "ARE YOU SURE";B$:IFB$<>"Y" THEN RETURN 
LSET F$=CHR$ (255) 

FOR I=l TO 100 

PUT#1,I 

NEXT I 

RETURN 
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BSAVE command, 3-7, 3-13 
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CHDIR command, 1-10, 3-17 
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Screen mode 0, 3-24 to 3-26 
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Screen mode 2, 3-28 
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COM I/O functions, 4-6 
command level prompt, I-1 
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device, 3-130 
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numeric types, 2-9 
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hex, 2-10 
integer, 2-10 
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string, 2-9 
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coordinates 
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relative, 1-14 
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segment [DS], 3-9 

types, 2-1 
DATA statement, 3-36 
DATES$ variable and statement, 3-38 
default extension, .BAS, 1-6, 3-6 
DEFDBL statement, 2-12, 3-16 
DEF FW statement, 3-39 
DEFINT statement, 2-12, 3-16 
DEF SEG statement, 3-7, 3-14, 3-41 
DEFSNG statement, 2-12, 3-16 
DEFSTR statement, 2-12, 3-16 
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DEF USR statement, 3-43, 3-195 
DELETE command, 3-44 
delimiters, 3-156 
device driver, 3-88, 3-89 
device-independent I/O, 1-1, 1-5 
DIM statement, 3-45 
direct mode, 1-1, 2-3, 2-8, 2-9, 3-31, 

3-40, 3-57 

directories, 1-8 
disk file types, 3-94 
disk I/O, 3-23, Appendix G 

file commands, G-1 

protected file, G-2 

random files, G-7 

sequential files, G-3 
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CHDIR, 3-17 

MKDIR, 3-114 

MODE, 1-12 

PATH, 3-50 

RMDIR, 3-170 
DRAW statement, I-13, 3-46 


EDIT command, 2-25, 3-49 
END statement, 3-23, 3-53 
ENVIRON statement, 1-10, 3-50 
ENVIRONS$ function, 1-10, 3-52 
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Environment String Table, 3-50, 3-51 


EOF function, I-11, 3-55 
ERASE statement, 3-54 
ERDEV function, 3-56 
ERDEV$ function, 3-56 
ERL variable, 3-57 
ERR variable, 3-57 
error 

handling, 3-120 


messages, 1-11, 2-27, Appendix A 


trapping, 3-120 
ERROR statement, 3-58 
event 

specifiers, 1-16 

trap, 1-17 

line number, 1-17 

trapping, 1-1, 1-15 

controlling, 1-17 
EXP function, 3-60 


/F: option, 1-3 
FIELD statement, 3-61 
file, 1-5 
communications, 3-105 
extension, default, 1-3 
number, 1-3 
size, 3-105 
specification, 1-5 
filename, 1-3 
FILES statement, 3-62 
filled rectangle, 3-97 
FIX function, 3-64 
FOR...NEXT statement, 3-65 
FRE function, 3-67 
Full Screen Editor, 2-1, 2-3 to 2-9, 
3-49 
function keys, 2-5 
functional operators, 2-24 
functions 
intrinsic, 2-24 
mathematical, Appendix D 
user-defined, 2-24 
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GET statement for file I/O, 3-68 

GET and PUT statements for COM, 
3-69 

GET and PUT statements for graphics, 
3-70 

GOSUB...RETURN statement, 1-15, 
1-17, 1-18, 3-74, 3-118 

GOTO statement, 3-75, 3-78 

graphics, 3-46 

mode, 3-136, 3-143, 3-145, 3-148, 

3-158 

GRAPHICS.COM, 1-13 

Graphics Macro Language (GML), 3-46 


HEX$ function, 3-77 
high-resolution graphics, 1-12 


IF statement, 3-78 

IF... THEN loop, 3-78 

indirect mode, 1-1 

initialization, 1-2 

INKEY$ variable, 1-11, 1-16, 3-80 
INP function, 3-81 

input editing, 2-25 

INPUT statement, [-11, 1-16, 3-82 
INPUT# statement, 3-84 

INPUTS function, I-11, 3-85 
INSTR function, 3-86 

INT function, 3-87 

integer division, 2-17 

I/O buffer, 3-128 

IOCTLS function, 3-89 


key 
assignment string, 3-91 
special, 2-1 
trap, 3-91 

KEY statement, 3-90 
KEY LIST, 3-90 
KEY OFF, 3-90 
KEY ON, 1-16, 3-90 
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KEY (n) statement, 3-93 

KEY (n) OFF, 3-93 

KEY (n) ON, 1-16, 3-93 

KEY (n) STOP, 3-93 
keyboard scan codes, Appendix E 
KILL command, 3-94 


LEFT$ function, 3-95 
LEN function, 3-96 
LET statement, 3-57, 3-96 
line 

format, 1-2 

logical, 2-3 

numbers, 1-2 

straight, 3-97 
LINE statement, 1-13, 3-97 
LINE INPUT statement, 3-99 
LINE INPUT# statement, 3-100 
linefeed/carriage return sequence, 3-99, 

3-100 
LIST command, 2-4, 3-101 
LLIST command, 3-104 
LOAD command, 3-103 
LOC function, 3-105 
LOCATE statement, 3-106, 3-204 
LOF function, 3-108 
LOG function, 3-109 
logical operators, 2-20 to 2-24 
LPOS function, 3-109 
LPRINT and LPRINT USING 
statements, 3-110, 3-189 

LSET and RSET statements, 3-111 


MERGE command, 3-112 

MID$ function and statement, 3-113 
MKDIR command, 1-10, 3-114 
MKDs$ function, 3-115 

MKI§ function, 3-115 

MKSS$ function, 3-115 
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mode 
direct, 1-1, 3-31 
graphics, 1-13, 3-136, 3-143, 3-145, 
3-148 
indirect, 1-1 
music foreground, 3-141 
random I/O, 3-129 
resolution, 1-12 
text, 1-13 
MODE command, 1-12 
modulus arithmetic, 2-17, 2-18, 3-12 
monochrome screen, 1-12 
movement commands, 3-47 
Music 
Foreground mode, 3-141 
Macro Language, 3-139 
music foreground, 3-125 


NAME command, 3-116 
NEW command, 2-26, 3-23, 3-117 
nonlocal RETURN statement, 1-18 
null string, 3-95 
numeric 

constants, 2-1 1 

fields, 3-153 


OCTS function, 3-117 

offset [IP], 3-9 

ON COM statement, 3-118 
ON ERROR GOTO statement, 3-120 
ON...GOSUB statement, 3-121 
ON...GOTO statement, 3-121 
ON KEY‘(n) statement, 3-122 
ON PLAY statement, 3-124 
ON TIMER statement, 3-126 
OPEN FOR APPEND, 3-130 
OPEN statement, 3-23 

OPEN COM statement, 3-130 
operand, 2-15 
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operation modes 
arithmetic, 1-1 
logical, 1-1 
operators 
arithmetic, 2-16 to 2-18, 
functional, 2-16, 2-24 to 2-25 
logical, 2-15, 2-16, 2-20 to 2-24 
relational, 2-16, 2-19 
OPTION BASE statement, 3-134 
setting, 3-16 
options 
ALL, 3-16, 3-30 
m, 3-113 
MERGE, 3-16 
R, 3-103 
option switches, 1-3 
/C:, 1-3, 3-108, 4-6 
/F:, 1-3 
/M:, 1-4, 3-14 
/S:, 1-3 
OUT statement, 3-81, 3-135 
output port, 3-135 


paint attribute, 3-136 

PAINT statement, 3-136 

parameter address, 3-1 | 

parity, 3-131 

passing parameters, 3-11 

PATH command, 3-50 

pathnames, 1-5 

PEEK statement, 3-41, 3-146 

physical device, 1-6, 3-128 

PLAY statement, 3-139 

PLAY (n) function, 3-141 

PLAY OFF statement, 3-125, 3-142 

PLAY ON statement, 3-125, 3-142 
event trapping, 3-142 

PLAY STOP statement, 3-125, 3-142 

PMAP function, 3-143 

POINT function, 1-13, 1-15, 3-145 

POKE statement, 3-41, 3-146 
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POS function, 3-147 
precision 

double, 2-11, 2-14 

single, 2-11, 2-14, 3-32 
PRESET statement, 1-13, 3-148 
PRINT statement, 1-11, 3-38, 3-82, 

3-107, 3-149, 3-189, 3-204, 3-212 

printout, 1-13 
print positions, 3-149 
PRINT# statement, 3-156 
PRINT USING statement, 3-151 
PRINT# USING statement, 3-156 
program statements, 2-3 
prompt, command level, |-1 
PSET statement, 1-13, 3-73, 3-158 
PUT statement, 1-13 


random access memory (RAM), 1-5 
random file buffer, 3-61 
random number generator, 3-159 
RANDOMIZE statement, 3-159 
READ statement, 3-36, 3-161, 3-167 
rectangles, 3-97 
filled, 3-97 

re-direction of standard input 

and output, 1-10 
relational operators, 2-19 
relative coordinates, 1-14 
REM statement, 3-163 
RENUM command, 3-16, 3-164 
RESET command, 3-166 
resolution modes, 1-12 
RESTORE statement, 3-36, 3-167 
RESUME statement, 3-168 
RETURN statement, 1-15, 3-169 

nonlocal, 1-17 

RMDIR command, 1-10, 3-170 
RND function, 3-171 
RUN command, 3-172 
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SAVE command, 3-173 
scan codes, Appendix E 
scan line 
starting, 3-106, 3-107 
stopping, 3-106, 3-107 
screen 
color, 1-12 
images, 3-71 
locations, 1-14 
mode 0, 3-24 
mode |, 3-27 
mode 2, 3-28 
monochrome, 1-12 


SCREEN function, 3-176, 3-204 
SCREEN statement, 1-12, 1-13, 1-15, 


3-174, 3-204 
segment registers, 3-10 
SGN function, 3-177 
SHELL statement, 3-178 
SIN function, 3-180 


single precision, 3-3, 3-10, 3-32 


SOUND statement, 3-181 
SPACES$ function, 3-182 
space requirements, 2-13 
SPC function, 3-183 
speaker sounds, 3-5 
special 

characters, 2-1 

keys, 2-1 
speed, 3-131 
SQR function, 3-184 
stack pointer, 3-9 
statement 

executable, 3-75 

nonexecutable, 3-75 
STOP statement, 3-23, 3-185 
straight lines, 3-97 
STR$ function, 3-186 
STRINGS function, 3-187 
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string, 3-11 
comparisons, 2-25 
fields, 3-152 
literal, 3-100 
operations, 2-24 
variable, 3-100 

style, 3-98 

SWAP statement, 3-188 

switches, option, 1-3 
/HIGH, 3-13 
/M:, 3-14 

syntax errors, 2-26 

SYSTEM command, 3-189 


TAB function, 3-189 
TAN function, 3-190 
telephone line communications, 3-68, 
3-69 
text mode, 1-13 
tile background, 3-138 
tiling, 3-137 
TIME$ function and statement, 3-191 
TIMER OFF statement, 3-127, 3-193 
TIMER ON statement, 3-127, 3-193 
TIMER STOP statement, 3-127, 3-193 
transmit/receive data bits, 3-131 
trap 
recursive, 1-17 
routine, 1-15, 3-123 
trapping 
disabling, 3-123 
error, 3-120 
event, 1-15, 1-17, 3-29 
function key, 3-122 
PLAY event, 3-142 
TROFF command, 3-194 
TRON command, 3-194 
TTY program, 4-1 to 4-5 
two’s complement, 2-21 


VBASICA 


type 
conversion, 2-14 
declaration statements, 3-42 


USR function, 3-41, 3-195 


VAL function, 3-196 
variable, 2-11 to 2-13 
array name, 2-13 
declaration characters, 2-12 
names, 2-12 
types, 3-42 
VARPTR function, 3-197 
VARPTRS function, 3-200 
VBASICA 
clipping, 3-20 
communications, Chapter 4 
data entry, 2-9 to 2-27 
data types, 3-10 
disk I/O, Appendix G 
editing, 2-1 to 2-9 
programs, 2-3, 2-4, Appendix F 
VIEW statement, 3-201, 3-204 
VIEW PRINT statement, 3-204 


WAIT statement, 3-205 
WHILE...WEND statement, 3-206 
WIDTH statement, 3-24, 3-207 
window screen, 3-210 

WINDOW statement, 3-146, 3-209 
WRITE statement, 3-212 
WRITE# statement, 3-213 
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